inherited fmRenderingService: TfmRenderingService
  Left = 785
  Top = 124
  Width = 935
  Height = 806
  Caption = #1054#1082#1072#1079#1072#1085#1080#1077' '#1076#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1099#1093' '#1091#1089#1083#1091#1075
  Constraints.MinHeight = 803
  Constraints.MinWidth = 935
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 741
    Width = 919
  end
  inherited Panel1: TPanel
    Width = 919
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 757
    end
    inherited BitBtn2: TBitBtn
      Left = 845
    end
  end
  object ToolBar2: TToolBar [2]
    Left = 0
    Top = 45
    Width = 919
    Height = 34
    AutoSize = True
    BorderWidth = 2
    ButtonHeight = 24
    EdgeInner = esNone
    EdgeOuter = esNone
    Images = DMInv.ilActive
    TabOrder = 2
    TabStop = True
    Transparent = True
    object tbAddTabel: TToolButton
      Left = 0
      Top = 2
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1090#1072#1073#1077#1083#1100
      ImageIndex = 30
      ParentShowHint = False
      ShowHint = True
      OnClick = tbAddTabelClick
    end
    object tbEditTabel: TToolButton
      Left = 23
      Top = 2
      Hint = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100' '#1090#1072#1073#1077#1083#1100
      Caption = 'tbEditTabel'
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = tbEditTabelClick
    end
    object tbDeltabel: TToolButton
      Left = 46
      Top = 2
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1090#1072#1073#1077#1083#1100
      ImageIndex = 29
      ParentShowHint = False
      ShowHint = True
      OnClick = tbDeltabelClick
    end
    object ToolButton2: TToolButton
      Left = 69
      Top = 2
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 31
      Style = tbsSeparator
    end
    object tbAddtabel_indiv: TToolButton
      Left = 77
      Top = 2
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1080#1085#1076#1080#1074#1080#1076#1091#1072#1083#1100#1085#1099#1081' '#1090#1072#1073#1077#1083#1100
      Caption = 'tbAddtabel_indiv'
      ImageIndex = 31
      ParentShowHint = False
      ShowHint = True
      Visible = False
      OnClick = tbAddtabel_indivClick
    end
    object ToolButton1: TToolButton
      Left = 100
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 32
      Style = tbsSeparator
    end
    object cxLabel1: TcxLabel
      Left = 108
      Top = 2
      AutoSize = False
      Caption = #1044#1072#1090#1072
      Height = 24
      Width = 37
    end
    object eDate: TcxButtonEdit
      Tag = 11
      Left = 145
      Top = 2
      ParentFont = False
      Properties.Buttons = <
        item
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFF0FFFFFFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFF0000000F
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        end>
      Properties.MaxLength = 0
      Properties.ReadOnly = True
      Properties.OnButtonClick = eDatePropertiesButtonClick
      Properties.OnChange = eDatePropertiesChange
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = ''
      Style.Shadow = False
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 0
      Width = 240
    end
    object ToolButton3: TToolButton
      Left = 385
      Top = 2
      Caption = 'ToolButton3'
      ImageIndex = 32
      Visible = False
      OnClick = ToolButton3Click
    end
  end
  object dbgRS: TcxGrid [3]
    Left = 0
    Top = 79
    Width = 919
    Height = 324
    Align = alTop
    TabOrder = 3
    LookAndFeel.Kind = lfStandard
    object tvRS: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      OnCellDblClick = tvRSCellDblClick
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 10
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Preview.Visible = True
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object tvRSRSID: TcxGridDBColumn
        Caption = #8470
        DataBinding.FieldName = 'RSID'
        Width = 77
      end
      object tvRSUSLUGA: TcxGridDBColumn
        Caption = #1059#1089#1083#1091#1075#1072
        DataBinding.FieldName = 'USLUGA'
        Width = 43
      end
      object tvRSRSDATE: TcxGridDBColumn
        Caption = #1044#1072#1090#1072
        DataBinding.FieldName = 'RSDATE'
        Width = 43
      end
      object tvRSRSTIMEBEGIN: TcxGridDBColumn
        Caption = #1042#1088#1077#1084#1103' '#1085#1072#1095'.'
        DataBinding.FieldName = 'RSTIMEBEGIN'
        Width = 72
      end
      object tvRSRSTIMEEND: TcxGridDBColumn
        Caption = #1042#1088#1077#1084#1103' '#1086#1082#1086#1085#1095'.'
        DataBinding.FieldName = 'RSTIMEEND'
        Width = 62
      end
      object tvRSRSTEMA: TcxGridDBColumn
        Caption = #1058#1077#1084#1072
        DataBinding.FieldName = 'RSTEMA'
        Width = 44
      end
      object tvRSRSNABLJUD: TcxGridDBColumn
        Caption = #1053#1072#1073#1083#1102#1076#1077#1085#1080#1103
        DataBinding.FieldName = 'RSNABLJUD'
        Width = 62
      end
      object tvRSRSTIMEENTER: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076'.'
        DataBinding.FieldName = 'RSTIMEENTER'
        Width = 74
      end
      object tvRSPEDAGOG_FIO: TcxGridDBColumn
        Caption = #1050#1090#1086' '#1087#1088#1086#1074#1077#1083
        DataBinding.FieldName = 'PEDAGOG_FIO'
        Width = 76
      end
      object tvRSADM_FIO: TcxGridDBColumn
        Caption = #1040#1076#1084#1080#1085'. '#1089#1086#1090#1088'.'
        DataBinding.FieldName = 'ADM_FIO'
        Width = 51
      end
      object tvRSREGISTRATOR_FIO: TcxGridDBColumn
        Caption = #1050#1090#1086' '#1089#1086#1079#1076#1072#1083
        DataBinding.FieldName = 'REGISTRATOR_FIO'
        Width = 170
      end
    end
    object cxGridLevel7: TcxGridLevel
      GridView = tvRS
    end
  end
  object cxSplitter1: TcxSplitter [4]
    Left = 0
    Top = 403
    Width = 919
    Height = 8
    AlignSplitter = salTop
    Control = dbgRS
  end
  object dbgRSTabel: TcxGrid [5]
    Left = 0
    Top = 411
    Width = 919
    Height = 330
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    LookAndFeel.Kind = lfStandard
    object tvRSTabel: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.Insert.Visible = True
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = True
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      DataController.DataSource = dsVosp
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          FieldName = 'PP'
          Column = tvRSTabelPID
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsCustomize.ColumnFiltering = False
      OptionsData.Appending = True
      OptionsData.CancelOnExit = False
      OptionsData.Editing = False
      OptionsView.CellEndEllipsis = True
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      Preview.Visible = True
      Styles.Header = DMInv.cxSiniyText
      object tvRSTabelColumn1: TcxGridDBColumn
        Caption = #8470
        OnGetDataText = tvRSTabelColumn1GetDataText
        Options.Editing = False
        Options.Filtering = False
        Options.Moving = False
        Options.Sorting = False
        Width = 58
      end
      object tvRSTabelPID: TcxGridDBColumn
        Caption = #1060#1048#1054
        DataBinding.FieldName = 'PP'
        Options.Editing = False
        Width = 83
      end
      object tvRSTabelOSN_PODR: TcxGridDBColumn
        Caption = #1054#1073#1088#1072#1079'. '#1087#1086#1076#1088'.'
        DataBinding.FieldName = 'OSN_PODR'
        Options.Editing = False
        Width = 211
      end
      object tvRSTabelRSPLEVEL: TcxGridDBColumn
        Caption = #1054#1094#1077#1085#1082#1072
        DataBinding.FieldName = 'RSPLEVEL'
        PropertiesClassName = 'TcxComboBoxProperties'
        Properties.Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5')
        Options.Editing = False
        Width = 127
      end
      object tvRSTabelRSPNOTE: TcxGridDBColumn
        Caption = #1050#1086#1084#1084#1077#1085#1090'.'
        DataBinding.FieldName = 'RSPNOTE'
        Width = 153
      end
      object tvRSTabelTARIF: TcxGridDBColumn
        Caption = #1058#1072#1088#1080#1092
        DataBinding.FieldName = 'TARIF'
        Width = 38
      end
    end
    object cxGridLevel2: TcxGridLevel
      GridView = tvRSTabel
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qRS
  end
  object qRS: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterOpen = qRSAfterOpen
    CachedUpdates = True
    SQL.Strings = (
      
        'SELECT RS.*, SD.SDNAME AS usluga, p1.PLASTNAME||'#39' '#39'||SUBSTRING(p' +
        '1.PNAME FROM 1 FOR 1 )||'#39'. '#39'||'
      
        'COALESCE(SUBSTRING(p1.PPATRONYMIC FROM 1 FOR 1)||'#39'.'#39','#39' '#39') AS ped' +
        'agog_fio,'
      'p2.PLASTNAME||'#39' '#39'||SUBSTRING(p2.PNAME FROM 1 FOR 1 )||'#39'. '#39'||'
      
        'COALESCE(SUBSTRING(p2.PPATRONYMIC FROM 1 FOR 1)||'#39'.'#39','#39' '#39') AS adm' +
        '_fio,'
      'p3.PLASTNAME||'#39' '#39'||SUBSTRING(p3.PNAME FROM 1 FOR 1 )||'#39'. '#39'||'
      
        'COALESCE(SUBSTRING(p3.PPATRONYMIC FROM 1 FOR 1)||'#39'.'#39','#39' '#39') AS reg' +
        'istrator_fio'
      'FROM RENDERING_SERVICES RS'
      'LEFT OUTER JOIN SYS_DIC SD ON SD.SDID = RS.SDID'
      'LEFT OUTER JOIN PEOPLE P1 ON P1.PID = RS.PID_PEDAG'
      'LEFT OUTER JOIN PEOPLE P2 ON P2.PID = RS.PID_ADM'
      'LEFT OUTER JOIN USERS U ON U.USNAME = RS.RSUSERENTER'
      'LEFT OUTER JOIN PEOPLE P3 ON P3.PID = U.PID'
      'where RS.rsisdelete is null'
      '    AND RS.RSDATE BETWEEN :data1 AND :data2')
    UpdateObject = quRS
    GeneratorField.Field = 'RSID'
    GeneratorField.Generator = 'GEN_RENDERING_SERVICES_ID'
    Left = 296
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'data1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'data2'
        ParamType = ptUnknown
      end>
    object qRSRSID: TIntegerField
      FieldName = 'RSID'
      Origin = '"RENDERING_SERVICES"."RSID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qRSSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"RENDERING_SERVICES"."SDID"'
    end
    object qRSPID_PEDAG: TIntegerField
      FieldName = 'PID_PEDAG'
      Origin = '"RENDERING_SERVICES"."PID_PEDAG"'
    end
    object qRSPID_ADM: TIntegerField
      FieldName = 'PID_ADM'
      Origin = '"RENDERING_SERVICES"."PID_ADM"'
    end
    object qRSRSDATE: TDateField
      FieldName = 'RSDATE'
      Origin = '"RENDERING_SERVICES"."RSDATE"'
    end
    object qRSRSTIMEBEGIN: TTimeField
      FieldName = 'RSTIMEBEGIN'
      Origin = '"RENDERING_SERVICES"."RSTIMEBEGIN"'
    end
    object qRSRSTIMEEND: TTimeField
      FieldName = 'RSTIMEEND'
      Origin = '"RENDERING_SERVICES"."RSTIMEEND"'
    end
    object qRSRSTEMA: TIBStringField
      FieldName = 'RSTEMA'
      Origin = '"RENDERING_SERVICES"."RSTEMA"'
      Size = 2048
    end
    object qRSRSNABLJUD: TIBStringField
      FieldName = 'RSNABLJUD'
      Origin = '"RENDERING_SERVICES"."RSNABLJUD"'
      Size = 2048
    end
    object qRSRSTIMEENTER: TDateTimeField
      FieldName = 'RSTIMEENTER'
      Origin = '"RENDERING_SERVICES"."RSTIMEENTER"'
    end
    object qRSRSUSERENTER: TIBStringField
      FieldName = 'RSUSERENTER'
      Origin = '"RENDERING_SERVICES"."RSUSERENTER"'
      Size = 40
    end
    object qRSRSTIMEEDIT: TDateTimeField
      FieldName = 'RSTIMEEDIT'
      Origin = '"RENDERING_SERVICES"."RSTIMEEDIT"'
    end
    object qRSRSUSEREDIT: TIBStringField
      FieldName = 'RSUSEREDIT'
      Origin = '"RENDERING_SERVICES"."RSUSEREDIT"'
      Size = 40
    end
    object qRSRSISDELETE: TIntegerField
      FieldName = 'RSISDELETE'
      Origin = '"RENDERING_SERVICES"."RSISDELETE"'
    end
    object qRSUSLUGA: TIBStringField
      FieldName = 'USLUGA'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qRSPEDAGOG_FIO: TIBStringField
      FieldName = 'PEDAGOG_FIO'
      ProviderFlags = []
      Size = 769
    end
    object qRSADM_FIO: TIBStringField
      FieldName = 'ADM_FIO'
      ProviderFlags = []
      Size = 769
    end
    object qRSREGISTRATOR_FIO: TIBStringField
      FieldName = 'REGISTRATOR_FIO'
      ProviderFlags = []
      Size = 769
    end
  end
  object quRS: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  RSID,'
      '  SDID,'
      '  PID_PEDAG,'
      '  PID_ADM,'
      '  RSDATE,'
      '  RSTIMEBEGIN,'
      '  RSTIMEEND,'
      '  RSTEMA,'
      '  RSNABLJUD,'
      '  RSTIMEENTER,'
      '  RSUSERENTER,'
      '  RSTIMEEDIT,'
      '  RSUSEREDIT,'
      '  RSISDELETE,'
      '  USLUGA,'
      '  PEDAGOG_FIO,'
      '  ADM_FIO,'
      '  REGISTRATOR_FIO'
      'from RENDERING_SERVICES '
      'where'
      '  RSID = :RSID')
    ModifySQL.Strings = (
      'update RENDERING_SERVICES'
      'set'
      '  PID_ADM = :PID_ADM,'
      '  PID_PEDAG = :PID_PEDAG,'
      '  RSDATE = :RSDATE,'
      '  RSID = :RSID,'
      '  RSISDELETE = :RSISDELETE,'
      '  RSNABLJUD = :RSNABLJUD,'
      '  RSTEMA = :RSTEMA,'
      '  RSTIMEBEGIN = :RSTIMEBEGIN,'
      '  RSTIMEEND = :RSTIMEEND,'
      '  SDID = :SDID'
      'where'
      '  RSID = :OLD_RSID')
    InsertSQL.Strings = (
      'insert into RENDERING_SERVICES'
      
        '  (PID_ADM, PID_PEDAG, RSDATE, RSID, RSISDELETE, RSNABLJUD, RSTE' +
        'MA, RSTIMEBEGIN, '
      '   RSTIMEEND, SDID)'
      'values'
      
        '  (:PID_ADM, :PID_PEDAG, :RSDATE, :RSID, :RSISDELETE, :RSNABLJUD' +
        ', :RSTEMA, '
      '   :RSTIMEBEGIN, :RSTIMEEND, :SDID)')
    DeleteSQL.Strings = (
      'update RENDERING_SERVICES'
      'set'
      '  RSISDELETE = 1'
      'where'
      '  RSID = :OLD_RSID')
    Left = 336
    Top = 8
  end
  object qVosp: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dlgDS
    SQL.Strings = (
      
        'SELECT distinct RSP.*, podr.osn_pdr AS osn_podr, (COALESCE(P.PLA' +
        'STNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PPATRON' +
        'YMIC,'#39' '#39')) AS PP'
      'FROM RS_PEOPLE RSP'
      'INNER JOIN PEOPLE P ON P.PID = RSP.PID'
      'LEFT OUTER JOIN ('
      'SELECT APU.PID, SD2.SDNAME AS osn_pdr'
      'FROM DETI_PODRAZD_SC DP'
      'INNER JOIN SPEC_COND SC ON SC.SCID = DP.SCID'
      'INNER JOIN AGR_POLUCH_USLUG APU ON APU.AGID = SC.AGID'
      'INNER JOIN SYS_DIC SD2 ON SD2.SDID = DP.SDID'
      'WHERE  :RSDATE BETWEEN CAST(dp.DPDATEIN AS DATE)'
      '    AND CAST(dp.DPDATEOUT AS DATE)'
      '    AND DP.DPTYPE = 1 AND SC.SCISDELETE IS NULL'
      ') AS podr ON podr.pid = rsp.PID'
      'WHERE RSP.RSID = :RSID and RSP.rspisdelete is null'
      '')
    Left = 168
    Top = 392
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'RSDATE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'RSID'
        ParamType = ptUnknown
      end>
    object qVospRSID: TIntegerField
      FieldName = 'RSID'
      Origin = '"RS_PEOPLE"."RSID"'
      Required = True
    end
    object qVospPID: TIntegerField
      FieldName = 'PID'
      Origin = '"RS_PEOPLE"."PID"'
    end
    object qVospRSPLEVEL: TIntegerField
      FieldName = 'RSPLEVEL'
      Origin = '"RS_PEOPLE"."RSPLEVEL"'
    end
    object qVospRSPUSERENTER: TIBStringField
      FieldName = 'RSPUSERENTER'
      Origin = '"RS_PEOPLE"."RSPUSERENTER"'
      Size = 40
    end
    object qVospRSPTIMEENTER: TDateTimeField
      FieldName = 'RSPTIMEENTER'
      Origin = '"RS_PEOPLE"."RSPTIMEENTER"'
    end
    object qVospRSPUSEREDIT: TIBStringField
      FieldName = 'RSPUSEREDIT'
      Origin = '"RS_PEOPLE"."RSPUSEREDIT"'
      Size = 40
    end
    object qVospRSPTIMEEDIT: TDateTimeField
      FieldName = 'RSPTIMEEDIT'
      Origin = '"RS_PEOPLE"."RSPTIMEEDIT"'
    end
    object qVospRSPNOTE: TIBStringField
      FieldName = 'RSPNOTE'
      Origin = '"RS_PEOPLE"."RSPNOTE"'
      Size = 255
    end
    object qVospOSN_PODR: TIBStringField
      FieldName = 'OSN_PODR'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qVospPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qVospTARIF: TIBBCDField
      FieldName = 'TARIF'
      Origin = '"RS_PEOPLE"."TARIF"'
      Precision = 18
      Size = 2
    end
  end
  object dsVosp: TDataSource
    DataSet = qVosp
    Left = 136
    Top = 392
  end
end
